VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CUsuario"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Dim lusuario As New lusuario
Dim lEstado As New lEstado
Dim LPerfil As New LPerfil
Dim lPedido As New lPedido

Public Function getLista(bean As bUsuario) As Collection
Set getLista = lusuario.getLista(bean)
End Function

Public Function eliminar(bUsuario As bUsuario)
eliminar = lusuario.eliminar(bUsuario)
If eliminar = UtilConstantes.OPT_ERROR_ENCONTRADO Then
    utilMensaje.muestraMensaje registroNoEliminado
End If

End Function


Public Sub mostrarNuevo()
'Dim frm As New frmEntraUsuarios
'frm.modo = LibConstantes.MODO_NUEVO
'Set frm.lstEstado = LEstado.getEstadosUsuario
'Set frm.lstPerfil = LPerfil.getLista
'
'frm.Show 1
End Sub

Public Sub mostrarActualizar(bean As bUsuario)
'Dim frm As New frmEntraUsuarios
'frm.modo = LibConstantes.MODO_ACTUALIZAR
'Set frm.lstEstado = LEstado.getEstadosUsuario
'Set frm.lstPerfil = LPerfil.getLista
'Set frm.bean = bean
'frm.Show 1
End Sub

Public Sub guardarNuevo(bean As bUsuario)
If lusuario.guardarNuevo(bean) Then
    utilMensaje.muestraMensaje DatosGuardados
End If

End Sub
Public Sub actualizar(bean As bUsuario)
If lusuario.actualizar(bean) Then
    utilMensaje.muestraMensaje DatosGuardados
End If
End Sub

Public Function login(bean As bUsuario, bCompania As bCompania) As Boolean
Select Case lusuario.login(bean)
Case UtilConstantes.OPT_LOGIN
    Set bparametro.bUsuarioActivo = bean
    Set bparametro.bCompaniadPorDefecto = bCompania
    bparametro.sNombreImpresora = bCompania.bPuntoVenta.snomImpresora
    Dim bpedido As New bpedido
    bpedido.bEstado.nCodigo = UtilConstantes.ESTADO_PEDIDO_PENDIENTE
    bpedido.nDiaTrabajo = bparametro.nDiaTrabajo
    Set bpedido.bUsuario = bparametro.bUsuarioActivo

    Set frmPrincipal.listaPedido = lPedido.getLista(bpedido)
    frmPrincipal.Show
    login = True
    
Case UtilConstantes.OPT_LOGIN_CLAVE_INCORRECTA
    utilMensaje.muestraMensaje ClaveIncorrecta
    login = False
Case UtilConstantes.OPT_LOGIN_CUENTA_DESHABILITADA
    utilMensaje.muestraMensaje CuentaDeshabilitada
    login = False
End Select
End Function



